home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / chapters / 8.1.dxr / Internal_1_animate_down.ls < prev    next >
Encoding:
Text File  |  2004-06-10  |  800 b   |  39 lines
  1. property spriteNum, Pmember, animatedown, pTeller, pGeluidje
  2.  
  3. on beginSprite me
  4.   pTeller = 0
  5.   animatedown = 0
  6.   Pmember = sprite(spriteNum).memberNum
  7.   add(the actorList, me)
  8. end
  9.  
  10. on mouseEnter me
  11.   animatedown = 1
  12.   puppetSound(2, pGeluidje)
  13. end
  14.  
  15. on mouseLeave me
  16.   animatedown = 0
  17.   puppetSound(2, 0)
  18. end
  19.  
  20. on stepFrame me
  21.   if animatedown then
  22.     if pTeller < 4 then
  23.       pTeller = pTeller + 1
  24.       sprite(spriteNum).member = member(Pmember + pTeller)
  25.     end if
  26.   else
  27.     if pTeller > 0 then
  28.       pTeller = pTeller - 1
  29.       sprite(spriteNum).member = member(Pmember + pTeller)
  30.     end if
  31.   end if
  32. end
  33.  
  34. on getPropertyDescriptionList me
  35.   propertyList = [:]
  36.   setaProp(propertyList, #pGeluidje, [#comment: "hoe heet hetgeluidje?", #format: #string, #default: "1"])
  37.   return propertyList
  38. end
  39.